home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1159.ZIP / OPTSET.PRG < prev    next >
Text File  |  1986-10-14  |  2KB  |  138 lines
  1. DO WHILE N4#'STOP'
  2. SET BELL OFF
  3. CLEAR
  4. @ 1,4 SAY 'Choose the data base for which you wish to define options.'
  5. N4='Z'
  6. DO WHILE ASC(N4)<65.OR.ASC(N4)>84
  7. @ 3,10 SAY 'A)  Set options for the '
  8. ?? DATABASE1
  9. ??' data base.'
  10. @ 4,10 SAY 'B)  Set options for the '
  11. ?? DATABASE2
  12. ??' data base.'
  13. @ 5,10 SAY 'C)  Set options for the '
  14. ?? DATABASE3
  15. ??' data base.'
  16. @ 6,10 SAY 'D)  Set options for the '
  17. ?? DATABASE4
  18. ??' data base.'
  19. @ 7,10 SAY 'E)  Set options for the '
  20. ?? DATABASE5
  21. ??' data base.'
  22. @ 8,10 SAY 'F)  Set options for the '
  23. ?? DATABASE6
  24. ??' data base.'
  25. @ 9,10 SAY 'G)  Set options for the '
  26. ?? DATABASE7
  27. ??' data base.'
  28. @ 10,10 SAY 'H)  Set options for the '
  29. ?? DATABASE8
  30. ??' data base.'
  31. @ 11,10 SAY 'I)  Set options for the '
  32. ?? DATABASE9
  33. ??' data base.'
  34. @ 12,10 SAY 'J)  Set options for the '
  35. ?? DATABASE10
  36. ??' data base.'
  37. @ 13,10 SAY 'K)  Set options for the '
  38. ?? DATABASE11
  39. ??' data base.'
  40. @ 14,10 SAY 'L)  Set options for the '
  41. ?? DATABASE12
  42. ??' data base.'
  43. @ 15,10 SAY 'M)  Set options for the '
  44. ?? DATABASE13
  45. ??' data base.'
  46. @ 16,10 SAY 'N)  Set options for the '
  47. ?? DATABASE14
  48. ??' data base.'
  49. @ 17,10 SAY 'O)  Set options for the '
  50. ?? DATABASE15
  51. ??' data base.'
  52. @ 18,10 SAY 'P)  Set options for the '
  53. ?? DATABASE16
  54. ??' data base.'
  55. @ 19,10 SAY 'Q)  Set options for the '
  56. ?? DATABASE17
  57. ??' data base.'
  58. @ 20,10 SAY 'R)  Set options for the '
  59. ?? DATABASE18
  60. ??' data base.'
  61. @ 21,10 SAY 'S)  Set options for the '
  62. ?? DATABASE19
  63. ??' data base.'
  64. @ 22,10 SAY 'T)  Set options for the '
  65. ?? DATABASE20
  66. ??' data base.'
  67. WAIT '          Press RETURN to return to the previous menu.' TO N4
  68. ??'    WORKING . . .'
  69. N4=UPPER(N4)
  70. DO CASE
  71.  CASE ASC(N4)=0
  72.   RETURN
  73.  CASE N4='A'
  74.   N=1
  75.   DO OPTSETWK
  76.  CASE N4='B'
  77.   N=2
  78.   DO OPTSETWK
  79.  CASE N4='C'
  80.   N=3
  81.   DO OPTSETWK
  82.  CASE N4='D'
  83.   N=4
  84.   DO OPTSETWK
  85.  CASE N4='E'
  86.   N=5
  87.   DO OPTSETWK
  88.  CASE N4='F'
  89.   N=6
  90.   DO OPTSETWK
  91.  CASE N4='G'
  92.   N=7
  93.   DO OPTSETWK
  94.  CASE N4='H'
  95.   N=8
  96.   DO OPTSETWK
  97.  CASE N4='I'
  98.   N=9
  99.   DO OPTSETWK
  100.  CASE N4='J'
  101.   N=10
  102.   DO OPTSETWK
  103.  CASE N4='K'
  104.   N=11
  105.   DO OPTSETWK
  106.  CASE N4='L'
  107.   N=12
  108.   DO OPTSETWK
  109.  CASE N4='M'
  110.   N=13
  111.   DO OPTSETWK
  112.  CASE N4='N'
  113.   N=14
  114.   DO OPTSETWK
  115.  CASE N4='O'
  116.   N=15
  117.   DO OPTSETWK
  118.  CASE N4='P'
  119.   N=16
  120.   DO OPTSETWK
  121.  CASE N4='Q'
  122.   N=17
  123.   DO OPTSETWK
  124.  CASE N4='R'
  125.   N=18
  126.   DO OPTSETWK
  127.  CASE N4='S'
  128.   N=19
  129.   DO OPTSETWK
  130.  CASE N4='T'
  131.   N=20
  132.   DO OPTSETWK
  133. ENDCASE
  134. ENDDO
  135. N4='Z'
  136. ENDDO
  137. RETURN
  138.